This command will delete any memblock that has been attached to the object using the ADD MEMBLOCK TO OBJECT command.

DELETE MEMBLOCK FROM OBJECT Object Number

Object Number

Integer
The object number

This command does not return a value.

input "(c)reate or (l)oad?";a$

if a$="c"

 make object sphere 1,100

 scale object 1,25,100,25

 make memblock 1,12

 write memblock dword 1,0,25

 write memblock dword 1,4,100

 write memblock dword 1,8,25

 add memblock to object 1,1

 f$="scaledobject.dbo"

 if file exist(f$)=1 then delete file f$

 save object f$,1

 delete object 1

endif

load object "scaledobject.dbo",1

get memblock from object 1,1

sx#=memblock dword(1,0)

sy#=memblock dword(1,4)

sz#=memblock dword(1,8)

scale object 1,sx#,sy#,sz#

delete memblock from object 1

wait key

end

BASIC3D Commands Menu
Index